home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / false.bas < prev    next >
BASIC Source File  |  1998-04-07  |  155b  |  12 lines
  1. CLS
  2. Let looping = TRUE
  3. While looping
  4. Banner "If you would like to quit looping, press a key"
  5. If Inkey$ <> "" Then 
  6. CLS
  7. Let looping = FALSE
  8. Endif
  9. Wend
  10. End
  11.  
  12.